home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 049b.dms / 049b.adf / MORE_SOURCE_CODE / Circle.AMOS / Circle.amosSourceCode
AMOS Source Code  |  1992-02-26  |  476b  |  17 lines
  1. 'By Paul Overy (Optimised from a book) 
  2. '
  3. _CIRCLE[100,100,64]
  4. ' Unlike the Amos circle routine this can be adapted for hundres of FX.
  5. Procedure _CIRCLE[CX,CY,R]
  6.    ' Draws a circle using only integers.
  7.    S=R : X=R : Y=0 : Add S,-2*X
  8.    While Y<=X
  9.       Plot CX+X,CY-Y : Plot ,CY+Y : Plot CX-X, : Plot ,CY-Y
  10.       Plot CX-Y,CY+X : Plot ,CY-X : Plot CX+Y, : Plot ,CY+X
  11.       Add S,2*Y+1 : Inc Y
  12.       If S>=0
  13.          Add S,-2*X+2
  14.          Dec X
  15.       End If 
  16.    Wend 
  17. End Proc